﻿Public Class SpirteCheatSheet
    Public Const width As Integer = 75
    Public Const height As Integer = 150


#Region "TopDownDudeSpiteCheatSheet"



    Public Function TopDownDude_Move(AnimationIndex As Integer) As Rectangle
        Select Case AnimationIndex
            Case 1
                Return New Rectangle(width * 0, 0, width, height) 'Still
            Case 2
                Return New Rectangle(width * 1, 0, width, height) '1
            Case 3
                Return New Rectangle(width * 2, 0, width, height) '2
            Case 4
                Return New Rectangle(width * 1, 0, width, height) 'Tween 1
            Case 5
                Return New Rectangle(width * 0, height * 1, width, height) '3
            Case 6
                Return New Rectangle(width * 1, height * 1, width, height) '4
            Case 7
                Return New Rectangle(width * 2, height * 1, width, height) '5
            Case 8
                Return New Rectangle(width * 1, height * 1, width, height) 'Tween 4
        End Select
        Return New Rectangle(0, 0, width, height)
    End Function

#End Region


#Region "ArmySpiteCheatSheet"


    Public Function ArmySolider1_Move(AnimationIndex As Integer, direction As String) As Rectangle
        Select Case direction
            Case "up"
                Return ArmySolider1_up(AnimationIndex)
            Case "down"
                Return ArmySolider1_down(AnimationIndex)
            Case "left"
                Return ArmySolider1_left(AnimationIndex)
            Case "right"
                Return ArmySolider1_right(AnimationIndex)
        End Select
        Return New Rectangle(0, 0, width, height)
    End Function

    Function ArmySolider1_down(AnimationIndex As Integer) As Rectangle
        Select Case AnimationIndex
            Case 1
                Return New Rectangle(0, 0, width, height)
            Case 2
                Return New Rectangle(width * 1, 0, width, height)
            Case 3
                Return New Rectangle(width * 2, 0, width, height)
            Case Else
                Return New Rectangle(width * 1, 0, width, height)
        End Select
        Return New Rectangle(0, 0, width, height)
    End Function

    Function ArmySolider1_left(AnimationIndex As Integer) As Rectangle
        Select Case AnimationIndex
            Case 1
                Return New Rectangle(0, height, width, height)
            Case 2
                Return New Rectangle(width * 1, height, width, height)
            Case 3
                Return New Rectangle(width * 2, height, width, height)
            Case Else
                Return New Rectangle(width * 1, height, width, height)
        End Select
        Return New Rectangle(0, 0, width, height)
    End Function


    Function ArmySolider1_right(AnimationIndex As Integer) As Rectangle
        Select Case AnimationIndex
            Case 1
                Return New Rectangle(0, height * 2, width, height)
            Case 2
                Return New Rectangle(width * 1, height * 2, width, height)
            Case 3
                Return New Rectangle(width * 2, height * 2, width, height)
            Case Else
                Return New Rectangle(width * 1, height * 2, width, height)
        End Select
        Return New Rectangle(0, 0, width, height)
    End Function


    Function ArmySolider1_up(AnimationIndex As Integer) As Rectangle
        Select Case AnimationIndex
            Case 1
                Return New Rectangle(0, height * 3, width, height)
            Case 2
                Return New Rectangle(width * 1, height * 3, width, height)
            Case 3
                Return New Rectangle(width * 2, height * 3, width, height)
            Case Else
                Return New Rectangle(width * 1, height * 3, width, height)
        End Select
        Return New Rectangle(0, 0, width, height)
    End Function

#End Region
End Class
